home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / translib.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  818 b   |  21 lines
  1. 1 REM BASE DE DONNEES: WTEL 24/24 (16) 62.93.74.05
  2. 2 REM pour retablir P0:
  3. 3 REM poke adr,ld
  4. 4 REM poke adr+1,hd
  5. 5 REM poke adr+2,0
  6. 6 REM poke adr+3,lf
  7. 7 REM poke adr+4,hf
  8. 8 REM poke adr+5,0
  9. 9 REM
  10. 10 REM TRANSFERT D'UN PROGRAMME DE LA LIB EN P0
  11. 20 INPUT "Numero de Lib:";N$
  12. 30 DEFSEG=0:ADR=PEEK1715+PEEK1716*256-15
  13. 40 DN=PEEK1718+PEEK1719*256+PEEK1720*65536
  14. 50 FN=PEEK1724+PEEK1725*256+PEEK1726*65536
  15. 60 FOR J=DN TO FN-15 STEP 15:DEFSEG=J/16:OF=J-INT(J/16)*16+6
  16. 70 FOR K=1 TO LEN(N$):IF ASC(MID$(N$,K))=PEEK(K+OF) THEN NEXT K:GOTO 100
  17. 80 NEXT J:PRINT "Non trouve":END
  18. 100 REM P0 SAUVEGARDE, TRANSFERT PROGRAMME EN P0
  19. 110 DEFSEG=0:IF PEEK(ADR+2)=0 THEN LD=PEEK ADR:HD=PEEK(ADR+1):LF=PEEK(ADR+3):HF=PEEK(ADR+4)
  20. 120 FOR K=0 TO 5:DEFSEG=J/16:BYTE=PEEK(K+J-INT(J/16)*16):DEFSEG=0:POKE ADR+K,BYTE:NEXT K
  21.